Eyes Closed meditate
tab0 <- read.table(file = "EyesClosed.txt", skip = 6, sep = ",")
dim(tab0) # [1] 11422 13
## [1] 11422 13
tab1 <- read.table(file = "EyesClosed (2).txt", skip = 6, sep = ",")
dim(tab1) # [1] 153309 13
## [1] 153309 13
cm_tab <- rbind(tab0, tab1)
for (i in 2:9) {
plot(cm_tab[,i], type = "l", main = paste(i - 1)); abline(v = ncol(tab1), col = "red")
}








Eyes Open Movie
tab0 <- read.table(file = "OpenBCI-RAW-2017-11-09_14-58-55.txt", skip = 6, sep = ",")
dim(tab0) #131695 13
## [1] 131695 13
tab1 <- read.table(file = "OpenBCI-RAW-2017-11-09_15-09-17.txt", skip = 6, sep = ",")
dim(tab1) #105693 13
## [1] 105693 13
for (i in 2:9) plot(tab0[1:130000,i], type = "l", main = paste(i - 1))








for (i in 2:9) plot(tab1[,i], type = "l", main = paste(i - 1))








en_tab <- tab0
Eyes Open meditate
em_tab <- read.table(file = "OpenBCI-RAW-2017-11-09_15-38-15.txt", skip = 6, sep = ",")
## Warning in scan(file, what, nmax, sep, dec, quote, skip, nlines,
## na.strings, : number of items read is not a multiple of the number of
## columns
dim(em_tab) #123703 13
## [1] 123703 13
for (i in 2:9) plot(em_tab[1:120000,i], type = "l", main = paste(i - 1))







